МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
ІКТА, кафедра “Захисту інформації”
ЗВІТ
З ЛАБОРАТОРНОЇ РОБОТИ № 2
З КУРСУ “АЛГОРИТМІЧНІ МОВИ І ПРОГРАМУВАННЯ”
ПРОГРАМИ З РОЗГАЛУЖЕНИМИ
ТА ЦИКЛІЧНИМИ АЛГОРИТМАМИ
кафедра “Автоматика і
телемеханіки”
Львів – 2006
Мета роботи - вивчити оператори мови Турбо-Паскаль та основні процедури введення-виведеиня даних, навчитися складати та відлагоджувати розрахункові пробами з розгалуженими та циклічними алгоритмами.
ЗАВДАННЯ
1. Вивчити синтаксис, призначення., принцип роботи і використання операторів мови Турбо-Паскаль та основних процедур введення-виведення.
2. Скласти блок-схеми алгоритмів та програми мовою Турбо-Паскаль для табулювання функцій. Забезпечити ввід значень інтервалу, кроку і похибки табулювання з клавіатури і вивід результатів на дисплей. Дані для роботи беруться з таблиць 1 і 2 за вказівкою викладача:
б) табулювання функції, представленої рядом (див. табл.2), на інтервалі [a, b] з кроком табуляції h та абсолютною похибкою d. Оцінку похибки здійснювати за значенням модуля чергового члена ряду.
Таблиця 2
23
[0.1, 0.2]
0.01
0.001
Текст програми мовою Pascal
Program Lab2b;
Uses crt;
Var a, b, krok, pohybka, p, n, d, s, x, e : extended;
Label f;
Begin
Clrscr;
Writeln (‘enter a’);
Readln(a);
Writeln (‘enter b’);
Readln(b);
Writeln (‘enter krok’);
Readln(krok);
Writeln (‘enter pohybka’);
Readln(pohybka);
x:=a;
f:
p:=1;s:=0;
n:=0;d:=1;
e:=1;
while abs(e)>= pohybka+0.000001 do
begin
n:=n+1;
d:=2*n-1;
p:=p*d;
e:=(exp(2*n*ln(x))-1)/p;
s:=s+e;
end;
writeln (‘s=’, s:10:10,’ x=’,x:4:2, ‘ n=’, round(n), ‘ e=’,e:10:10);
x:=x+krok;
while x<=b+0.001 do goto f;
readln;
end.
Результати виконання роботи
s=-1.4006448106 x=0.10 n=6 e=-0.0000962001
s=-1.3985292890 x=0.11 n=6 e=-0.0000962001
s=-1.3962088912 x=0.12 n=6 e=-0.0000962001
s=-1.3936826848 x=0.13 n=6 e=-0.0000962001
s=-1.3909496540 x=0.14 n=6 e=-0.0000962001
s=-1.3880086989 x=0.15 n=6 e=-0.0000962001
s=-1.3848586348 x=0.16 n=6 e=-0.0000962001
s=-1.3814981915 x=0.17 n=6 e=-0.0000962001
s=-1.3779260127 x=0.18 n=6 e=-0.0000962001
s=-1.3741406547 x=0.19 n=6 e=-0.0000962001
s=-1.3701405862 x=0.20 n=6 e=-0.0000962001
Таблиця ідентифікаторів, які використовуються
а
Початкова точка, в якій обчислити значення функції (тип EXTENDED)
b
Кінцева точка, в якій обчислити значення функції (тип EXTENDED)
s
Значення суми ряду (тип EXTENDED)
krok
Крок зміни аргументу x (тип EXTENDED)
x
Змінна, в якій обчислюється значення функції (тип EXTENDED)
e
Член ряду (тип EXTENDED)
pohybka
Похибка (тип EXTENDED)
n
Кількість обчислень функції в різних точках (тип EXTENDED)
p
Обчислення факторіалу (тип EXTENDED)
d
Член ряду (факторіалу) (тип EXTENDED)
Висновок: На цій лабораторній роботі я вивчив оператори мови Турбо-Паскаль та основні процедури введення-виведеиня даних, навчився складати та відлагоджувати розрахункові програми з розгалуженими та циклічними алгоритмами
БЛОК-СХЕМА